(socks-build-auth-list): Use mapc rather than mapcar.

diff --git a/lisp/net/socks.el b/lisp/net/socks.el
index 5079e84ce192d8a4ef18548fc496db2718adb8d5..fd8e7ec59f27ca0f368842d27e609abdc7c5988e 100644 (file)
--- a/lisp/net/socks.el
+++ b/lisp/net/socks.el
@@ -247,7 +247,7 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"."
 (defun socks-build-auth-list ()
   (let ((num 0)
        (retval ""))
-    (mapcar
+    (mapc
      (function
       (lambda (x)
        (if (fboundp (cdr (cdr x)))